home *** CD-ROM | disk | FTP | other *** search
- /*
- Arexx Text Script
- */
-
- options results
-
- parse ARG Port x y b
-
- ADDRESS value Port
-
- pp_GetDepth
- depth=result
- IF depth<24 then DO
- pp_Warn 'Only*for*24Bits.'
- EXIT
- END
-
- F=0
- FF=1
- ADDRESS COMMAND
- if EXISTS('PerfectPaint:Prefs/Rexx_Prefs/Candy') THEN DO
- IF OPEN('lfile','PerfectPaint:Prefs/Rexx_Prefs/Candy', "R") then DO
- F = READLN('lfile')
- FF = READLN('lfile')
- CALL CLOSE('lfile')
- END
- END
-
- ADDRESS value Port
- pp_DialogInit 230 60 "*Candy*" 1
- pp_slider 0 80 9 100 16 "Bevel*Size" 1 1 10 FF
- pp_Dialog
- rc=result
- IF rc=0 THEN EXIT
-
- pp_GetDialog 0
- FF=result
-
- CALL SavePrefs('Candy',F,FF)
- ADDRESS value Port
-
- pp_GetWidthT
- w=result
- pp_GetHeightT
- h=result
- pp_GetApen
- Clr=result
- pp_ClosestColor 255 255 255
- White=result
- pp_ClosestColor 0 0 0
- Black=result
-
- pp_Psave "ram:palette"
- pp_GetCurrentBuffer
- CBf=result
-
- pp_FindEmptyBuffer
- Bf=result
- if Bf=-1 then DO
- pp_Warn "can't*find*empty|Buffer."
- EXIT
- END
-
- pp_UpdateUndoBox x-w/2-2 y-h/2-2 x+w/2+2 y+h/2+2
-
- pp_SetBuffer Bf
-
- pp_New w+20 h+20 24
-
- pp_Pload "ram:palette"
- ADDRESS COMMAND
- 'delete >nil: ram:palette'
- ADDRESS value Port
-
- pp_ComposeReqOff
-
- pp_SetApen Clr
- pp_BoxF 0 0 w+19 h+19
- pp_EffectOff
-
- /*
- IF F=0 then DO
- pp_SetBpen Clr
- pp_Cls
- END
- IF F=1 then DO
- pp_EffectOn
- pp_Brush 0 0 0
- pp_BoxF 0 0 w+19 h+19
- pp_EffectOff
- END
- IF F=2 then DO
- END
- */
-
- pp_SpareOnOff
- pp_SetApen White
- pp_SetBpen BLack
- pp_Cls
- pp_TextDraw W/2+10 h/2+10
-
- pp_EffectOn
- pp_Compose 0 100 0
- pp_GaussianBlur 20
- pp_Boxf 0 0 w+19 h+19
-
- pp_ConvInit 0 1 150
- A=FF*-1
- pp_Conv 0 0 0 0 0 0
- pp_Conv 1 0 A 0 0 0
- pp_Conv 2 0 0 0 0 0
- pp_Conv 3 0 0 0 FF 0
- pp_Conv 4 0 0 0 0 0
- pp_Boxf 0 0 w+19 h+19
- pp_EffectOff
-
- pp_SparetoStencil
- pp_StencilOn
- pp_InvStencil
- pp_SpareOnOff
- pp_Cls
- pp_SpareOnOff
- pp_StencilOff
- pp_SetApen Black
- pp_SetBpen White
- pp_Cls
- pp_TextDraw W/2+10 h/2+10
- pp_TextEffect 1 1
- pp_TextMake
- pp_TextDraw W/2+10 h/2+10
- pp_SparetoStencil
- pp_StencilOn
- pp_SpareOnOff
- pp_SetBuffer CBf
- pp_ComposeBuffer x y 100 Bf
-
- pp_TextEffect 0 0
- pp_TextMake
-
- pp_ClearBuffer Bf
-
- pp_ComposeReqOn
-
- exit
-
-
- SavePrefs: PROCEDURE
-
- Prefname='PerfectPaint:Prefs/Rexx_Prefs/'||ARG(1)
-
- if EXISTS(Prefname) THEN DO
- ADDRESS COMMAND
- 'delete >nil: '||Prefname
- END
-
- IF OPEN('pfile',PrefName,'W') THEN DO
-
- do i=2 to ARG()
- CALL WRITELN('pfile',ARG(i))
- end
-
- CALL CLOSE('pfile')
-
- RETURN
-